10 POKE 53280,0:POKE 53281,0:PRINT"[147][149]":DIM A$(7) 30 GOSUB 60500 50 : 60 PRINT"[147]":PRINTTAB(8)" DECIMAL EQUIVELENTS [146][154]":PRINT:SIZE=0 70 RESTORE:FOR X=1 TO 7:READ A$(X):NEXT X 80 FOR X=1 TO 7:SIZE=SIZE+.125:PRINTTAB(14)A$(X);"=";SIZE:NEXT X 90 PRINT"[150] PLEASE ENTER THE ENVELOPS MEASUREMENTS" 100 PRINT"IN DECIMAL. IF UNCERTAIN, PLEASE CHECK.[153]" 105 PRINT"STANDARD BUSSINESS ENVELOPE = 9 X 4.5" 120 PRINT"[129]ENTER THE ENVELOPE'S WIDTH [152]:";:NU=1:GOSUB61000:EW=VAL(A$) 125 IFA$="" THEN PRINT"[145][145]";:GOTO120 130 PRINT"[156]ENTER THE ENVELOPE'S HEIGHT [152]:";:NU=1:GOSUB 61000:EH=VAL(A$) 135 IFA$="" THEN PRINT"[145][145]";:GOTO130 140 PRINT"[147] RETURN ADDRESS " 141 PRINT"ENTER YOUR CHOICE OF RETURN ADDRESSES" 142 PRINT" 1[152])[150] COMMODORE MAGAZINE 143 [153]" 2PRINT#) PRINTLOADSTAR MAGAZINE" 144 [153]" 3PRINT#) CONT'OTHER'" 145 [153]"OPENENTER SELECTION PRINT#(CONT1-3,0=ABORTPRINT#) :";:NU[178]1:[141] 61000 146 [139]A$[178]"0" [167] [141]62000 :[137] 140 147 [139] A$[178]"1" [167] 760 148 [139] A$[178]"2" [167] 790 149 [139] A$[179][177]"3" [167]140 150 [153]"LOAD RETURN ADDRESS " 155 [153]"PRINT# FROM LIST(NAMEPRINT#) PRINT# :";:NU[178]0:[141]61000:RN$[178]A$ 185 [139]A$[178]""[167][141]62000:[137]150 190 [153]"PRINT#CLOSEFROM LIST(FORADDRESSLIST)PRINT#:";:[141]61000:RA$[178]A$ 191 [139]A$[178]""[167][141]62000:[137]150 195 [153]"PRINT# FROM LIST(SYSCITYLIST) PRINT#:";:[141]61000:RC$[178]A$ 196 [139]A$[178]""[167][141]62000:[137]150 200 [153]"PRINT# FROM LIST(STATELIST) PRINT#:";:[141]61000:RS$[178]A$ 201 [139]A$[178]""[167][141]62000:[137]150 205 [153]"PRINT# FROM LIST(CONTZIPLIST) PRINT#:";:[141]61000:RZ$[178]A$ 206 [139]A$[178]""[167][141]62000:[137]150 210 [153]"LOAD": 211 [153]"LOAD RETURN ADDRESS " 212 [153]" NAME PRINT#:LIST";RN$ 213 [153]" FORADDRESS PRINT#:LIST";RA$ 214 [153]" SYSCITY PRINT#:LIST";RC$ 215 [153]" STATE PRINT#:LIST";RS$ 217 [153]" CONTZIP CODE PRINT#:LIST";RZ$ 220 [153]"IS THIS CORRECT (Y/N):";:NU[178]0:[141]61000:AN$[178]A$:[139]A$[178]""[167] 210 225 [139] AN$[178]"Y" [167] 230 226 [139] AN$[178]"N" [167] 140 227 [137] 210 230 [153]"LOAD SENDING ADDRESS " 231 [153]"ENTER YOUR CHOICE OF SENDING ADDRESSES" 232 [153]" 1PRINT#)DEF COMMODORE MAGAZINE 233 PRINT" 2[152]) [153]LOADSTAR MAGAZINE" 234 PRINT" 3[152]) [154]'OTHER'" 235 PRINT"[159]ENTER SELECTION [152]([154]1-3,0=ABORT[152]) :";:NU=1:GOSUB 61000 236 IFA$="0" THEN GOSUB62000:GOTO230 237 IF A$="1" THEN 820 238 IF A$="2" THEN 850 239 IF A$<>"3" THEN230 250 PRINT"[147] SENDING ADDRESS " 255 PRINT"[152] TO [155](NAME[152]) [152] :";:NU=0:GOSUB61000:TN$=A$ 256 IFA$=""THENGOSUB62000:GOTO 250 260 PRINT"[152][160] TO [155]([129]ADDRESS[155])[152]:";:GOSUB61000:TA$=A$ 261 IFA$=""THENGOSUB62000:GOTO 250 265 PRINT"[152] TO [155]([158]CITY[155]) [152]:";:GOSUB61000:TC$=A$ 266 IFA$=""THENGOSUB62000:GOTO 250 270 PRINT"[152] TO [155](STATE[155]) [152]:";:GOSUB61000:TS$=A$ 271 IFA$=""THENGOSUB62000:GOTO 250 275 PRINT"[152] TO [155]([154]ZIP[155]) [152]:";:GOSUB61000:TZ$=A$ 276 IFA$=""THENGOSUB62000:GOTO 250 280 PRINT"[147]": 281 PRINT"[147] SENDING ADDRESS " 282 PRINT" NAME [152]:[155]";TN$ 283 PRINT" [129]ADDRESS [152]:[155]";TA$ 284 PRINT" [158]CITY [152]:[155]";TC$ 285 PRINT" STATE [152]:[155]";TS$ 287 PRINT" [154]ZIP CODE [152]:[155]";TZ$ 290 PRINT"IS THIS CORRECT (Y/N):";:NU=0:GOSUB61000:AN$=A$:IFA$=""THEN 281 340 IF AN$="Y" THEN GOTO 360 350 IF AN$="N" THEN GOTO 230 355 GOTO 281 360 PRINT" [147]" 370 PRINT"IS THERE A LOWER FLAG TO THE ADDRESS" 380 PRINT"[154]EXAMPLE[152]: PHOTOGRAPHS-DO NOT BEND" 390 PRINT"[152] RESPONCE[155] ([154]Y/N[155]) :";:NU=0:GOSUB61000:AF$=A$ 400 IF AF$="N"THEN 420 405 IF AF$="Y"THEN 410 406 GOTO 360 410 PRINT"[156]ENTER THE MESSAGE [155]:";:GOSUB61000:FLAG$=A$ 420 PRINT"[147]" 430 PRINT"[150] INSERT[160]THE";EH;"X";EW;"ENVELOPE" 440 PRINT"[129] TURN ON PRINTER AND PRESS [158](RETURN[158])" 445 PRINT" [154]OR PRESS (SPACE) TO ABORT" 450 GETA$:IFA$=""THEN 450 455 IFA$=" "THEN GOSUB62000:GOTO 420 460 IFA$<>CHR$(13) THEN 450 470 OPEN 15,4,15:CLOSE 15 480 IF ST<>0 THEN PRINT"THE PRINTER DOES NOT RESPOND ...":GOTO 440 490 OPEN 10,4,10:PRINT#10:CLOSE 10 500 : 510 : 520 :ADJ=-1 530 OPEN4,4 540 PRINT#4,SPC(1);RN$ 550 PRINT#4,SPC(1);RA$ 560 PRINT#4,SPC(1);RC$;", ";RS$ 570 PRINT#4,SPC(1);RZ$ 580 GOSUB 880:REM CALCULATE DOWN TO ADDRESS 590 FOR X=1 TO DA:PRINT#4:NEXT X 600 GOSUB 900:REM GET LONGEST STRING 610 GOSUB 930:REM CALCULATE SPC(#) 620 PRINT#4,SPC(X);TN$ 630 PRINT#4,SPC(X);TA$ 640 PRINT#4,SPC(X);TC$;", ";TS$ 650 PRINT#4,SPC(X);TZ$ 660 IF AF$="Y"THEN GOSUB 950:REM CALCULATE LINES DOWN 670 FOR X=1 TO DN:PRINT#4:NEXT X 680 GOSUB 960:REM CALCULATE SPC(X) TO CENTER UP FLAG$ 690 PRINT#4,SPC(X);FLAG$ 700 PRINT"[147][150]PRINT ANOTHER [152]([154]Y/N[152]) :";:GOSUB61000:AN$=A$ 710 IF AN$="N"THEN CLOSE4:GOSUB 62000:GOTO 700 715 IF AN$="Y"THEN 720 717 GOTO 700 720 PRINT"[129]SAME ADDRESSES [152]([154]Y/N[152]) :";:GOSUB61000:AN$=A$ 730 IF AN$="Y"THEN CLOSE4:GOTO 490 735 IF AN$="N"THEN CLOSE4:GOTO 60 740 GOTO 720 750 PRINT#4:CLOSE 4:END 760 REM DEFAULT RETURN ADDRESS #1 770 RN$="COMMODORE MAGAZINE":RA$="1200 WILSON DRIVE":RC$="WEST CHESTER" 780 RS$="PA.":RZ$="19380":GOTO 210 790 REM DEFAULT RETURN ADDRESS #2 800 RN$="LOADSTAR":RA$="P.O. BOX 30008":RC$="SHREVEPORT" 810 RS$="LA":RZ$="71130-0008":GOTO 210 820 REM DEFAULT (TO) ADDRESS #1 830 TN$="COMMODORE MAGAZINE":TA$="1200 WILSON DRIVE":TC$="WEST CHESTER" 840 TS$="PA.":TZ$="19380":GOTO 280 850 REM DEFAULT (TO) ADDRESS #2 860 TN$="LOADSTAR":TA$="P.O. BOX 30008":TC$="SHREVEPORT" 870 TS$="LA":TZ$="71130-0008":GOTO 280 880 DA=INT((EH*6)/2)-6:IF DA<1 THEN DA=0 890 RETURN 900 AC=LEN(TN$):IF LEN(TA$)>AC THEN AC=LEN(TA$) 910 IF LEN(TC$)+LEN(TS$)+2>AC THEN AC=LEN(TC$)+LEN(TS$)+2 920 RETURN 930 X=INT((EW*10)/2)+ADJ-(AC/2):IF X<1 THEN X=0 940 RETURN 950 DN=INT(DA*.6):RETURN 960 X=INT((EW*10)/2)+ADJ-(LEN(FLAG$)/2):IF X<1 THEN X=0 970 RETURN 980 DATA "1/8","1/4","3/8","1/2","5/8","3/4","7/8" 60500 REM 60510 PRINT"[147][146] [158][204] [207] [193] [196] [211] [212] [193] [210]" 60520 PRINT 60530 PRINT" [154][208]ROUDLY PRESENTS:" 60550 PRINT 60560 PRINT 60570 PRINT" [197] [206] [214] [197] [204] [207] [208] [197] [205] [193] [211] [212] [197] [210]" 60580 PRINT" [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 60590 PRINT 60600 PRINT"  " 60610 PRINT"  bY:jEROME e rEUTER [176][174] " 60620 PRINT"  [173][189] " 60630 PRINT"  " 60640 PRINT"  " 60650 PRINT"  loadstar " 60660 PRINT"  p.o. bOX 30008 " 60670 PRINT"  sHREVEPORT, la " 60680 PRINT"  71130-0008 " 60690 PRINT"  " 60700 PRINT"  " 60710 PRINT"  " 60720 PRINT 60730 PRINT" [150] cOPYRIGHT 1987 " 60740 PRINT"  " 60750 PRINT" [154] press (space) "; 60760 PRINT""; 60800 GETA$:IFA$=""THEN60800 60805 IFA$<>" "THEN60800 60810 PRINT"[147]";CHR$(142):RETURN 61000 A$="":PRINT"[164]";:FORA=1TO25 61005 GETB$:IFB$=""THEN61005 61010 IFB$=CHR$(13) THEN PRINT"[157] ":RETURN 61015 IFB$=CHR$(20) AND A>1 THEN PRINT"[157][157] [157][157][164]";:A=A-1:A$=LEFT$(A$,A-1):GOTO61005 61020 IFB$=CHR$(20) THEN 61005 61025 IF(A=25)OR((NU)AND(A=6))THEN 61005 61030 IFB$>="0"ANDB$<="9" THEN 61070 61035 IFB$="." THEN 61070 61036 IF NU=1 THEN 61005 61040 IFB$=>"[193]" AND B$<="[218]" THEN 61070 61045 IFB$<" "OR B$>"Z" THEN 61005 61070 PRINT"[157]"B$;:POKE212,.:PRINT"[164]";:A$=A$+B$:NEXT 62000 PRINT"" 62005 PRINT"[155] [146]" 62010 PRINT" QUIT : ARE YOU SURE? [146]" 62015 PRINT" Y)ES OR N)O [146]" 62020 PRINT" [146]" 62030 GETA$:IFA$=""THEN62030 62035 IFA$="Y"ORA$="[217]"THEN 62050 62040 IFA$="N"ORA$="[206]"THEN RETURN 62045 GOTO 62030 62050 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT" 62055 INPUT#15,ER:CLOSE15 62056 IF ER<>63 THEN PRINT"[147]":END 62070 LOAD"HELLO CONNECT",8